//===== eAthena Script ======================================= 
//= Custom Free Breeder aka Universal Renter (not reccomended)
//===== By: ================================================== 
//= eAthena Team
//===== Current Version: ===================================== 
//= 1.3a
//===== Compatible With: ===================================== 
//= eAthena 1.0 Final +
//===== Description: ========================================= 
//= A Free PecoPeco and Falcon Breeder
//===== Additional Comments: ================================= 
//= 1.1 FIXED checkriding/cart/falcon funcs [Lupus]
//= 1.2 Added Rebirth/Advanced Class support [Mass Zero]
//= 1.3 Simplified the checks of job [Silentdragon]
//= 1.3a Fixed a Typo Error. [Samuray22]
//	-Thanks to ~AnnieRuru~.
//============================================================ 
//~ by coolfishfish 05/18/2005
//============================================================ 


prontera,122,200,1	script	ʪ}i	726,{
	mes "[ʪ}i]";
	mes "AڡIbڳoAiHΤAyNMjLC";
	next;

L_Menu:
	menu "",L_Cart,"yN",L_Falcon,"jL",L_Peco,"}",L_Quit;
	close;

L_Cart:
	if((BaseClass == Job_Merchant || BaseJob == Job_SuperNovice) && checkcart() == 0) goto L_Cart_Ok;
	mes "[ʪ}i]";
	mes "藍_ " + strcharinfo(0) + " ڥuӤHtCHζWŪǪ̨åBǲߤFϥΧޯ઺HC";
	close;

L_Cart_Ok:
	if(getskilllv(39)<1) goto L_Need_Skill;
	setcart;
	goto L_Quit2;

L_Need_Skill:
	mes "[ʪ}i]";
	mes "藍_AA٨SǷ|aޯC";
	close;

L_Falcon:
	if(BaseJob != Job_Archer && BaseClass == Job_Archer && checkfalcon() == 0) goto L_Falc;
	if(getskilllv(127)<1) goto L_Need_Skill2;

	mes "[ʪ}i]";
	mes "藍_ " + strcharinfo(0) + " ڥuyNǲߤFNNyHMgC";
	close;

L_Falc:
	setfalcon;
	goto L_Quit2;

L_Need_Skill2:
	mes "[ʪ}i]";
	mes "藍_AA٨SǷ|NNޯC";
	close;

L_Peco:
	if (BaseJob != Job_Swordman && BaseClass == Job_Swordman && checkriding() == 0) goto L_Peco_Ok;
	if(getskilllv(63)<1) goto L_Need_Skill3;

	mes "[ʪ}i]";
	mes "藍_" + strcharinfo(0) + "ڥujLǹLMjLMhMQrxC";
	close;

L_Peco_Ok:
	setriding;
	goto L_Quit2;

L_Need_Skill3:
	mes "[ʪ}i]";
	mes "藍_AA٨SǷ|MjLC";
	close;

L_Quit:
	mes "[ʪ}i]";
	mes strcharinfo(0) + ", UQ򪺸ܴNӳoڧaC";
	close;

L_Quit2:
	mes "[ʪ}i]";
	mes strcharinfo(0) + ", wU{...";
	close;

L_Homo:
	if(BaseJob == 18 || BaseJob == 42) goto L_Homo_Ok;
	mes "[ʪ}i]";
	mes "藍_ " + strcharinfo(0) + " ڥuHuͩRFL浹ҪNhMгy̡C";
	close;
L_Homo_Ok:
	if(getskilllv(243)<1) goto L_Need_Skill4;
	if(firstpet == 1) goto L_AlreadyGot;
	mes "[ʪ}i]";
	mes "ڷ|ھڧAHuͩRޯ൥šB¾~ťHΰ¦ŵAŪFL";
	mes "oOAFL";
	mes "ФdUOަnA㴶̼ڡA_hGۭtI";
	if((BaseLevel>=99) && (JobLevel>=70) && (getskilllv(240)>=5) && (getskilllv(241)>=5) && (getskilllv(242)>=5) && (getskilllv(246)>=10) && (getskilllv(245)>=10) && (getskilllv(247)>=10) && (getskilllv(392)>=1)) goto L_Homo10;
	if((BaseLevel>=95) && (JobLevel>=65) && (getskilllv(240)>=5) && (getskilllv(241)>=5) && (getskilllv(242)>=5) && (getskilllv(246)>=10) && (getskilllv(245)>=10) && (getskilllv(247)>=10)) goto L_Homo9;
	if((BaseLevel>=90) && (JobLevel>=60) && (getskilllv(240)>=5) && (getskilllv(241)>=5) && (getskilllv(242)>=5) && (getskilllv(246)>=10) && (getskilllv(245)>=10)) goto L_Homo8;
	if((BaseLevel>=85) && (JobLevel>=55) && (getskilllv(240)>=5) && (getskilllv(241)>=5) && (getskilllv(242)>=5) && (getskilllv(246)>=10)) goto L_Homo7;
	if((BaseLevel>=80) && (JobLevel>=50) && (getskilllv(240)>=5) && (getskilllv(241)>=5) && (getskilllv(242)>=5) && (getskilllv(246)>=5)) goto L_Homo6;
	if((BaseLevel>=75) && (JobLevel>=45) && (getskilllv(240)>=5) && (getskilllv(241)>=5) && (getskilllv(242)>=5) && (getskilllv(246)>=5)) goto L_Homo5;
	if((BaseLevel>=70) && (JobLevel>=40) && (getskilllv(240)>=5) && (getskilllv(241)>=5) && (getskilllv(242)>=5)) goto L_Homo4;
	if((BaseLevel>=65) && (JobLevel>=35) && (getskilllv(240)>=5) && (getskilllv(242)>=5)) goto L_Homo3;
	if((BaseLevel>=60) && (JobLevel>=30) && (getskilllv(240)>=5)) goto L_Homo2;
	makepet 1550;
	set firstpet,1;
	goto L_Quit2;
L_Homo2:
	makepet 1551;
	set firstpet,1;
	goto L_Quit2;
L_Homo3:
	makepet 1552;
	set firstpet,1;
	goto L_Quit2;
L_Homo4:
	makepet 1553;
	set firstpet,1;
	goto L_Quit2;
L_Homo5:
	makepet 1554;
	set firstpet,1;
	goto L_Quit2;
L_Homo6:
	makepet 1555;
	set firstpet,1;
	goto L_Quit2;
L_Homo7:
	makepet 1556;
	set firstpet,1;
	goto L_Quit2;
L_Homo8:
	makepet 1557;
	set firstpet,1;
	goto L_Quit2;
L_Homo9:
	makepet 1558;
	set firstpet,1;
	goto L_Quit2;
L_Homo10:
	makepet 1559;
	set firstpet,1;
	goto L_Quit2;

L_Need_Skill4:
	mes "[ʪ}i]";
	mes "藍_AA٨SǷ|syHuͩRޯC";
	close;
L_HomoC:
	if((countitem(9030)==1)||(countitem(9031)==1)||(countitem(9032)==1)||(countitem(9033)==1)||(countitem(9034)==1)||(countitem(9035)==1)||(countitem(9036)==1)||(countitem(9037)==1)||(countitem(9038)==1)||(countitem(9039)==1)) goto L_HomoC2;
	mes "[ʪ}i]";
	mes "An㴶̼ڱaӤ~ڡI"; 
	close;
L_HomoC2:
	if(countitem(9030)==1) delitem 9030,1;
	if(countitem(9031)==1) delitem 9031,1;
	if(countitem(9032)==1) delitem 9032,1;
	if(countitem(9033)==1) delitem 9033,1;
	if(countitem(9034)==1) delitem 9034,1;
	if(countitem(9035)==1) delitem 9035,1;
	if(countitem(9036)==1) delitem 9036,1;
	if(countitem(9037)==1) delitem 9037,1;
	if(countitem(9038)==1) delitem 9038,1;
	if(countitem(9039)==1) delitem 9039,1;
	set firstpet,0;
	mes "[ʪ}i]";
	mes "ڷ|⥦ٵҪNh|Aߧa";
	close;
L_AlreadyGot:
	mes "[ʪ}i]";
	mes "Awg֦FLFC";
	close;
}
